10 '*** OISAC 2 *** INPUT$1 ***
20 CLS:INPUT"Nombre :",A:PRINT"[1]:SIN  [2]:COS  [3]:TAN"TAB(0);
30 ON VAL(INPUT$(1)) GOSUB 50,60,70
40 PRINT B:GOTO 20
50 B=SINA:RETURN
60 B=COSA:RETURN
70 B=TANA:RETURN